home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / thinkRefMenu.tcl < prev    next >
Text File  |  1997-06-17  |  1KB  |  76 lines
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5. if $startingUp {
  6.     set thinkRefMenu    "•265"
  7.     addMenu thinkRefMenu
  8.     return
  9. }
  10.  
  11. proc thinkRefMenu {} {}
  12.  
  13. menu -n $thinkRefMenu {
  14.     "gotoReference"
  15.     "(-"
  16.     "displayTrapTemplate"
  17.     "insertTrapTemplate"
  18.     "/L<O<UlookupTrap"
  19. }
  20.  
  21.  
  22.  
  23. set lastTrap {}
  24.  
  25. proc insertTrapTemplate {} {
  26.     global lastTrap
  27.  
  28.     launchForeAppl DanR
  29.     set text [getSelect]
  30.     if {![string length $text]} {
  31.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  32.     } else {
  33.         deleteText [getPos] [selEnd]
  34.     }
  35.     set lastTrap $text
  36.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  37.     regexp {“.*”} $res one
  38.     insertText [string trim $one {“”}]
  39. }
  40.  
  41. proc displayTrapTemplate {} {
  42.     global lastTrap
  43.  
  44.     launchForeAppl DanR
  45.     set text {}
  46.     catch {set text [getSelect]}
  47.     if {![string length $text]} {
  48.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  49.     }
  50.     set lastTrap $text
  51.  
  52.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "“$text”"]
  53.     regexp {“.*”} $res one
  54.     alertnote [string trim $one {“”}]
  55. }
  56.  
  57. proc lookupTrap {} {
  58.     global lastTrap
  59.  
  60.     launchForeAppl DanR
  61.     set text {}
  62.     catch {set text [getSelect]}
  63.     if {![string length $text]} {
  64.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  65.     }
  66.     set lastTrap $text
  67.     set num 0
  68.     AEBuild {'DanR'} DanR {REF } "----" "“$text”"
  69. }
  70.  
  71. proc gotoReference {} {
  72.     launchForeAppl DanR
  73. }
  74.  
  75.  
  76.